Imports System.Windows.Forms

Public Class formNuevoCampo
    Private WithEvents efectos As New ClaseGolosinaVisual
    Private salida As Boolean
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevoCampoAceptar.Click
        efectos.VentanaWowClose()
        salida = True
    End Sub

    Private Sub formNuevoCampo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        efectos.VentanaWow(Me, 252, 108)
    End Sub

    Private Sub efectos_formClosed() Handles efectos.formClosed

        If salida = True Then
            Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Else
            Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        End If
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        salida = False
        efectos.VentanaWowClose()
    End Sub
End Class
